Amiga Plus 2002 #11/Amiga Plus CD - 2002 - No. 11.iso/Tools/Freeware/X-Arc 1.3/Install

Text File | 2002-10-27 | 53.4 KB | 1,235 lines

; Install script for X-Arc
;
; Copyright by Federico Pomi, 1998-1999

(procedure P_XATREG
    (
    (P_FLUSH)
    (run "Installation/Tools/xatinfo")
    )
)

(procedure P_GRAZIE_ED_EXE_REG
    ( if    (= 1 installato)
            (set @default-dest (tackon @default-dest "X-Arc") )
            (set @default-dest
                (askdir
                    (prompt "Please select the directory in which your X-Arc executable is located." )
                    (default (tackon @default-dest "X-Arc") )
                    (help @askdir-help)
                )
            )
    )
    (
        (copyfiles
            (source "installation/exes/x-arc_REG")
            (help @copyfiles-help)
            (prompt "Copying the registered executable of X-Arc...")
            (dest @default-dest)
            (newname "X-Arc")
            (optional askuser)
        )
    )
    (message
    "Dear User, \n"
    "Your keyfile has been installed, you should now be able to use X-Arc "
    "without any limitation. Feel free to read the accompanying documentation "
    "to further your knowledge of the program, to pick up some tips and tricks and how to customise X-Arc as you prefer. "
    "\nFor any information you may require, criticisms or suggestions; feel free  to "
    "contact us using the email address or the web sites shown below.\n"
    "\nThank you,\nFederico Pomi & Nik Soggia\n"
    "\nhttp://www.vapor.com/X-Arc/"
    "\nhttp://www.amyresource.it/X-Arc/"
    "\[e-mail]"
    )
    (exit)

)



(procedure P_CONTROLLA_SE_INSTALLATA
(
    (set risultato (P_XATREG))
    (if (= 1 risultato)
        (;Then
        (if (= 0 (askbool
                    (prompt
                        "Unfortunately it hasn't been possible to flush a previous xarctools.library."
                        " Please close all X-Arc tasks and retry."
                        " If this still doesn't work, quit from this installation,"
                        " reset the computer and relaunch the script."
                    )
                    (help @askbool-help)
                    (choices "Ok, try again" "Quit")
                )
            )
            (; Then
            (exit)
            (P_XAT_O_DEMO_O_RESETTI)
            ); EndThen
        );EndIF
        );EndThen
        ( P_GRAZIE_ED_EXE_REG ) ;Else
    );EndIF
))


(procedure P_INIZIO
    (
        (set sceltainiziale
            (askchoice
                (prompt "The X-Arc 1.3 installer script allows you to install/update X-Arc or to install a keyfile. Please select:")
                (help @askchoice-help)
                (choices "Install X-Arc" "Install Keyfile" "Quit")
            )
        )
        (select sceltainiziale
            (P_INXARC)
            (if (= 1 (exists "libs:xarctools.library"))
                (P_INKEY)
                (
                (P_INSTXAT)
                (P_INKEY)
                )
            )
            ( exit )
        )
        (P_INIZIO)
    )
)

(procedure P_TAGGAEXE
    ( if (= (P_XATREG) 0)
        (
            (if (exists "Installation/exes/X-Arc_REG")
                ( set exefile "Installation/exes/X-Arc_REG" )
                (if (exists "Installation/exes/X-Arc_DEMO")
                    (if (askbool
                            (help @askbool-help)
                            (prompt "The registered version of the executable isn't available in this archive. "
                                    "Would you like to install the demo version, instead?"
                            )
                        )
                        ( set exefile "Installation/exes/X-Arc_DEMO")
                        ( exit )
                    )
                    (
                        ( message "This archive doesn't contain either the registered version of the executable, "
                                  "nor the demo. Please download the correct archive from http://www.AmyResource.it/X-Arc"
                        )
                        (exit)
                    )
                )
            )
        )
        (
            (if (exists "Installation/exes/X-Arc_DEMO")
                ( set exefile "Installation/exes/X-Arc_DEMO" )
                (if (exists "Installation/exes/X-Arc_REG")
                    (if (P_CERCACHIAVE)
                        ( set exefile "Installation/exes/X-Arc_REG")
                        (if
                            (askbool
                                (help @askbool-help)
                                (prompt "The demo version of the executable isn't available in this archive. "
                                        "Would you like to install the registered version, instead?"
                                        "\n\nPlease remember that without a keyfile, the registered version cannot be used."
                                )
                            )
                            ( set exefile "Installation/exes/X-Arc_REG")
                            ( exit)
                        )
                    )
                    (
                        ( message "This archive doesn't contain either the demo version of the executable,"
                                  " nor the registered one. Please download the correct archive from http://www.AmyResource.it/X-Arc"
                        )
                        (exit)
                    )
                )
            )
        )
    )
)

(procedure P_TAGGADEST
( set
    @default-dest
    (askdir
        (prompt "Please select the drawer where you want to install X-Arc.\nA directory WILL be created there.")
        (help @askdir-help)
        (default @default-dest)
    )

)
)

(procedure P_INXARC
    (if (exists "MUI:" (noreq))
        (
            (P_TAGGAEXE)
            (P_TAGGADEST)
            (P_SETTA_VAR_CAT)
            (if (= 0    (+
                            (StrLen catalan_cat        )
                            (StrLen croatian_cat       )
                            (StrLen czech_cat          )
                            (StrLen danish_cat         )
                            (StrLen dutch_cat          )
                            (StrLen english_cat        )
                            (StrLen finnish_cat        )
                            (StrLen french_cat         )
                            (StrLen german_cat         )
                            (StrLen greek_cat          )
                            (StrLen hungarian_cat      )
                            (StrLen italian_cat        )
                            (StrLen japanese_cat       )
                            (StrLen norwegian_cat      )
                            (StrLen persian_cat        )
                            (StrLen polish_cat         )
                            (StrLen portugueseeuro_cat )
                            (StrLen portuguesebraz_cat )
                            (StrLen russian_cat        )
                            (StrLen serbian_cat        )
                            (StrLen slovenian_cat      )
                            (StrLen spanish_cat        )
                            (StrLen swedish_cat        )
                        )
                )
                (message "No catalog files are included in this archive. Please check for the FULL archive on the X-Arc or VaporWare home page.\n\nhttp:www.AmyResource.it/X-Arc\nhttp://www.vapor.com" )
                (
                    (P_TAGGACATS)
                    (if (< 0 bitcataloghi)
                        (if
                            (askchoice
                                (help @askchoice-help)
                                (choices "Locale:catalogs/" (tackon @default-dest "X-Arc/catalogs/") )
                                (prompt "Where would you like to install the catalogs?")
                            )
                            (set catdest (tackon @default-dest "X-Arc/catalogs/") )
                            (set catdest "Locale:catalogs/")
                        )
                    )
                )
            )
            (P_SETTA_VAR_DOC)
            (if (= 0    (+
                            (StrLen catalan_doc        )
                            (StrLen croatian_doc       )
                            (StrLen czech_doc          )
                            (StrLen danish_doc         )
                            (StrLen dutch_doc          )
                            (StrLen english_doc        )
                            (StrLen finnish_doc        )
                            (StrLen french_doc         )
                            (StrLen german_doc         )
                            (StrLen greek_doc          )
                            (StrLen hungarian_doc      )
                            (StrLen italian_doc        )
                            (StrLen japanese_doc       )
                            (StrLen norwegian_doc      )
                            (StrLen persian_doc        )
                            (StrLen polish_doc         )
                            (StrLen portugueseeuro_doc )
                            (StrLen portuguesebraz_doc )
                            (StrLen russian_doc        )
                            (StrLen serbian_doc        )
                            (StrLen slovenian_doc      )
                            (StrLen spanish_doc        )
                            (StrLen swedish_doc        )
                        )
                )
                (message "No documentation is included in this archive. Please check for the FULL archive on the X-Arc or VaporWare home page.\n\nhttp:www.AmyResource.it/X-Arc\nhttp://www.vapor.com" )
                (
                    (P_TAGGADOC)
                    (if (< 0 documentation)
                        (if ( < 0
                                (askchoice
                                    (help @askchoice-help)
                                    (choices (tackon @default-dest "X-Arc/Documentation/") "Somewhere else..." )
                                    (prompt "Where would you like to install the documentation?\n"
                                            "If you select 'somewhere else', you'll be prompted for the destination. Then, "
                                            "once installation is finished, you'll have to manually alter X-Arc's preferences to set "
                                            "your documentation directory."
                                    )
                                )
                            )
                            (set docdest
                                (askdir
                                    (help @askdir-help)
                                    (prompt "Select documentation directory.\mA drawer will NOT be created there." )
                                    (default (tackon @default-dest "X-Arc/Documentation/") )
                                )
                            )
                            (set docdest (tackon @default-dest "X-Arc/Documentation/") )
                        )
                    )
                )
            )
            (P_TAGGAMODULI)
            (P_PRECREA_LINEE_AT)
            (P_CREA_LINEE_AT)
            (P_FT)
            (P_INSTALNLIST)
            (if (= 0 (exists (tackon @default-dest "X-Arc")))
                (makedir (tackon @default-dest "X-Arc")
                    (help @makedir-help)
                    (prompt "Creating X-Arc directory")
                    (infos)

                )
            )
            (copylib
                (help @copylib-help)
                (prompt "Copying xarctools.library")
                (source "Installation/Libs/xarctools.library")
                (dest "Libs:")
                (optional askuser fail )
            )
            (copylib
                (help @copylib-help)
                (prompt "Copying Vapor Update Library")
                (source "Installation/Libs/vapor_update.library")
                (dest "Libs:")
                (optional askuser fail )
            )
            (copylib
                (help @copylib-help)
                (prompt "Copying Vapor Registration Library")
                (source "Installation/Libs/vapor_registration.library")
                (dest "Libs:")
                (optional askuser fail )
            )
            (copylib
                (help @copylib-help)
                (prompt "Copying Vapor Toolkit Library")
                (source "Installation/Libs/vapor_toolkit.library")
                (dest "Libs:")
                (optional askuser fail )
            )
            (copyfiles
                (help @copyfiles-help)
                (prompt "Copying X-Arc executable")
                (source exefile)
                (dest (tackon @default-dest "X-Arc"))
                (newname "X-Arc")
                (optional askuser fail )
            )
            (set installato 1)
            (copyfiles
                (help @copyfiles-help)
                (prompt "Copying X-Arc icon")
                (source "Installation/icons/newicons/exe.info")
                (dest (tackon @default-dest "X-Arc/"))
                (newname "X-Arc.info")
                (optional askuser fail )
            )
            (copyfiles
                (help @copyfiles-help)
                (prompt "Copying X-Arc Drawer icon")
                (source "Installation/icons/newicons/drawer.info")
                (dest @default-dest)
                (newname "X-Arc.info")
                (optional askuser fail )
            )
            (if (< 0 bitcataloghi) (P_COPY_CATS))
            (if (< 0 documentation) (P_COPY_DOCS))
            (if (< 0 bitmoduli) (P_COPY_MODS))
            (if (< 0 creat) (P_COSTRUISCI_AT))
            (if (< 0 (StrLen ft_source) )
                (copyfiles
                    (help @copyfiles-help)
                    (prompt "Copying default FileTypes settings...")
                    (dest "ENV:")
                    (source ft_source)
                    (optional nofail askuser)
                )
            )
            (copyfiles
                (help @copyfiles-help)
                (prompt "Copying settings in ENVARC:...")
                (dest "ENVARC:")
                (source "ENV:")
                (optional fail askuser)
                (pattern "X-Arc.#?")
            )
        (if (= 0 (P_XATREG))
            (exit)
            (if (P_CERCACHIAVE)
                (if (askbool
                        ( prompt "The installer script found that you have an X-Arc key but not yet installed (perhaps you're a new user or the xarctools.library has been replaced).\nThe key needs to be installed"
                                 " to be able to use X-Arc without restrictions. Would you like the script to"
                                 " install it?"
                        )
                        (help @askbool-help)
                    )
                    (
                        (P_INKEY)
                        (exit)
                    )
                    (
                        (P_INREGUTIL)
                        (exit)
                    )
                )
                (
                    (exit)
                    (P_INREGUTIL)
                )
            )
        )


        )

        (
            (message
                "\nThis program needs MUI(r) installed on your system.\n"
                "Please install it and retry.\n"
            )
            (exit)
        )
    )
)

(procedure P_INREGUTIL
    (if (= 0 (exists (tackon @default-dest "X-Arc/registration")))
        (makedir
            (tackon @default-dest "X-Arc/Registration")
            (prompt "Creating registration directory...")
            (infos)
            (help @makedir-help)
        )
    )
    (copyfiles
        (prompt "Copying registration tool...")
        (help @copyfiles-help)
        (source "Installation/Registration/")
        (all)
        (dest (tackon @default-dest "X-Arc/Registration") )
        (optional fail force)
    )
    (copyfiles
        (prompt "Copying registration directory icon...")
        (help @copyfiles-help)
        (source "Installation/Registration.info")
        (dest (tackon @default-dest "X-Arc/") )
    )
)

(procedure P_COSTRUISCI_AT
    (if (exists "ENV:X-Arc.ArchiveTypes" )
        (delete "ENV:X-Arc.ArchiveTypes"
            (prompt "Deleting old ArchiveTypes...")
            (help @delete-help)
            (optional force)
        )
    )
    (textfile
       (dest "ENV:X-Arc.ArchiveTypes")
        (append linealha)
        (append linealzx)
        (append lineazip)
    )
)

(procedure P_COPY_MODS
    (if (= 0 (exists moddest) )
        (makedir moddest
            (help @makedir-help)
            (prompt "Creating modules directory...")
        )
    )

    (if (BITAND bitmoduli 1)
        (copyfiles
            (prompt "Copying LHA module...")
            (help @copyfiles-help)
            (optional fail askuser)
            (source "Installation/Modules/lha.xarc_io" )
            (dest moddest)
        )
    )
    (if (BITAND bitmoduli 2)
        (copyfiles
            (prompt "Copying LZX module...")
            (help @copyfiles-help)
            (optional fail askuser)
            (source "Installation/Modules/lzx.xarc_io" )
            (dest moddest)
        )
    )
    (if (BITAND bitmoduli 4)
        (copyfiles
            (prompt "Copying ZIP module...")
            (help @copyfiles-help)
            (optional fail askuser)
            (source "Installation/Modules/zip.xarc_io" )
            (dest moddest)
        )
    )
)

(procedure P_COPY_CATS
    (if (= 0 (exists catdest) )
        (makedir catdest
            (help @makedir-help)
            (prompt "Creating catalog directory...")
        )
    )

    (if (BITAND bitcataloghi 1) (P_COPY_CAT catalan_dir ))
    (if (BITAND bitcataloghi 2) (P_COPY_CAT croatian_dir ))
    (if (BITAND bitcataloghi 4) (P_COPY_CAT czech_dir ))
    (if (BITAND bitcataloghi 8) (P_COPY_CAT danish_dir ))
    (if (BITAND bitcataloghi 16) (P_COPY_CAT dutch_dir ))
    (if (BITAND bitcataloghi 32) (P_COPY_CAT english_dir ))
    (if (BITAND bitcataloghi 64) (P_COPY_CAT finnish_dir ))
    (if (BITAND bitcataloghi 128) (P_COPY_CAT french_dir ))
    (if (BITAND bitcataloghi 256) (P_COPY_CAT german_dir ))
    (if (BITAND bitcataloghi 512) (P_COPY_CAT greek_dir ))
    (if (BITAND bitcataloghi 1024) (P_COPY_CAT hungarian_dir ))
    (if (BITAND bitcataloghi 2048) (P_COPY_CAT italian_dir ))
    (if (BITAND bitcataloghi 4096) (P_COPY_CAT japanese_dir ))
    (if (BITAND bitcataloghi 8192) (P_COPY_CAT norwegian_dir ))
    (if (BITAND bitcataloghi 16384) (P_COPY_CAT persian_dir ))
    (if (BITAND bitcataloghi 32768) (P_COPY_CAT polish_dir ))
    (if (BITAND bitcataloghi 65536) (P_COPY_CAT portugueseeuro_dir ))
    (if (BITAND bitcataloghi 131072) (P_COPY_CAT portuguesebraz_dir ))
    (if (BITAND bitcataloghi 262144) (P_COPY_CAT russian_dir ))
    (if (BITAND bitcataloghi 524288) (P_COPY_CAT serbian_dir ))
    (if (BITAND bitcataloghi 1048576) (P_COPY_CAT slovenian_dir ))
    (if (BITAND bitcataloghi 2097152) (P_COPY_CAT spanish_dir ))
    (if (BITAND bitcataloghi 4194304) (P_COPY_CAT swedish_dir ))
)

(procedure P_COPY_DOCS
    (if (= 0 (exists docdest) )
        (makedir docdest
            (help @makedir-help)
            (prompt "Creating documentation directory...")
            (infos)
        )
    )

    (if (= documentation 1) (P_COPY_DOC catalan_dir ))
    (if (= documentation 2) (P_COPY_DOC croatian_dir ))
    (if (= documentation 3) (P_COPY_DOC czech_dir ))
    (if (= documentation 4) (P_COPY_DOC danish_dir ))
    (if (= documentation 5) (P_COPY_DOC dutch_dir ))
    (if (= documentation 6) (P_COPY_DOC english_dir ))
    (if (= documentation 8) (P_COPY_DOC finnish_dir ))
    (if (= documentation 8) (P_COPY_DOC french_dir ))
    (if (= documentation 9) (P_COPY_DOC german_dir ))
    (if (= documentation 10) (P_COPY_DOC greek_dir ))
    (if (= documentation 11) (P_COPY_DOC hungarian_dir ))
    (if (= documentation 12) (P_COPY_DOC italian_dir ))
    (if (= documentation 13) (P_COPY_DOC japanese_dir ))
    (if (= documentation 14) (P_COPY_DOC norwegian_dir ))
    (if (= documentation 15) (P_COPY_DOC persian_dir ))
    (if (= documentation 16) (P_COPY_DOC polish_dir ))
    (if (= documentation 17) (P_COPY_DOC portugueseeuro_dir ))
    (if (= documentation 19) (P_COPY_DOC portuguesebraz_dir ))
    (if (= documentation 19) (P_COPY_DOC russian_dir ))
    (if (= documentation 20) (P_COPY_DOC serbian_dir ))
    (if (= documentation 21) (P_COPY_DOC slovenian_dir ))
    (if (= documentation 22) (P_COPY_DOC spanish_dir ))
    (if (= documentation 23) (P_COPY_DOC swedish_dir ))

    (if (= 0 (exists ( tackon docdest "pic" ) ) )
        (makedir (tackon docdest "pic" )
            (help @makedir-help)
            (prompt "Creating documentation images directory...")
        )
    )

    (copyfiles
        (prompt "Copying images of the documentation...")
        (help @copyfiles-help)
        (optional nofail askuser)
        (source "Installation/Documentation/pic/")
        (dest (tackon docdest "pic" ) )
        (all)

    )
)

(procedure P_COPY_CAT directory
    (if (= 0
            (exists
                (tackon catdest directory
                )
            )
        )
        (makedir (tackon catdest directory)
            (prompt "Creating dir for " directory " catalog.")
            (help @makedir-help)
        )
    )
    (copyfiles
        (prompt "Copying " directory " catalog...")
        (help @copyfiles-help)
        (source (tackon (tackon "Installation/Catalogs/" directory) "XArc.catalog" ) )
        (dest (tackon catdest directory) )
    )
)

(procedure P_COPY_DOC directory
    (copyfiles
        (prompt "Copying " directory " documentation...")
        (all)
        (help @copyfiles-help)
        (source (tackon "Installation/documentation/" directory) )
        (dest docdest )
        (optional nofail askuser)
    )
)

(procedure P_FT
    (if (exists "env:X-Arc.FileTypes" )
        (
            (message "The installer script found previously installed X-Arc filetypes "
                     "on your system, probably from an old version of X-Arc. These "
                     "settings will not be over written nor changed. "
            )
            (set ft_source "")
        )
        (if (exists "env:MIME.prefs" )
            (
                (message "The installer script found a previously installed MIMEPrefs configuration "
                         "on your system. This will be imported by X-Arc the first time you run the program."
                )
                (set ft_source "")
            )
            ( set ft_source "Installation/env/X-Arc.FileTypes")
        )
    )

)

(procedure P_TAGGAMODULI
    (set bitmoduli
        (askoptions
            (help @askoptions-help)
            (prompt "Please select the module(s) you want to install.\nThe more modules you install, the more archive types X-Arc will be able to recognise.")
            (choices "LHA/LZH module" "LZX module" "ZIP module")
        )
    )
    (if (= 0 bitmoduli )
        (if (= 0
                (askbool
                    (prompt "Without any installed module, X-Arc will not be able to open ANY archive! Are you sure you do not want to install ANY module?" )
                    (help @askbool)
                )
            )
            (P_TAGGAMODULI)
        )
        (
            (if
                (askchoice
                    (prompt "Where would you like to install the modules?")
                    (choices (tackon @default-dest "X-Arc/modules/") "Somewhere else..." )
                    (help @askchoice-help)
                )
                (
                    (set moddest
                        (askdir
                            (prompt "Select the directory where you want to install the modules. A directory will NOT be created.")
                            (help @askdir-help)
                            (default (tackon @default-dest "X-Arc/modules/"))
                        )
                    )
                    (set at_moddest moddest)
                )
                (
                    (set moddest (tackon @default-dest "X-Arc/modules/"))
                    (set at_moddest "PROGDIR:modules/")
                )
            )
        )
    )
)

(procedure P_PRECREA_LINEE_AT
    (if (< 0 bitmoduli)
        (
            (if (exists "env:X-Arc.ArchiveTypes")
                (set creat
                    (askbool
                        (prompt "You seem to be an old X-Arc user, with ArchiveTypes already configured. "
                                "Would you like the installer script to OVERWRITE these ArchiveTypes, creating the "
                                "new ones, step by step, or should it just leave the old settings? "
                        )
                        (help askbool-help)
                        (choices "Please, overwrite" "Keep the old ones!" )
                    )
                )
                (set creat
                    (askbool
                        (prompt "You seem to be an new X-Arc user, without previously configured ArchiveTypes. "
                                "Would you like the installer script to help you create these settings, "
                                "step by step, or would you like to create the archive settings yourself at a later date, within X-Arc? "
                        )
                        (help askbool-help)
                        (choices "Let's do it now!" "Later, within X-Arc" )
                    )
                )

            )
        )
        ( set creat 0)
    )

)

(procedure P_CREA_LINEE_AT
    (if (< 0 creat)
        (
            (if (BITAND bitmoduli 1)
                (
                    (if (= 1 (exists "C:Lha") )
                        (set lhacommand "C:LhA")
                        (set lhacommand
                            (askfile
                                (prompt "The LHA module needs the LhA program, by Stefan Boberg. Please locate it." )
                                (default "C:LhA" )
                                (help @askfile-help)
                            )
                        )
                    )
                    (if (= 1 (exists lhacommand) )
                        (
                            (set versione (getversion lhacommand) )
                            (set lhaver (/ versione 65536) )
                            (set lharev (- versione (* lhaver 65536) ) )
                        )
                        (set versione 0)
                    )
                    (if (= versione 0)
                        (message "The selected file could not be found. The installer script will create the LHA archive type, "
                                 "even though you will have to specify the location of the LhA command, later within X-Arc."
                        )
                        (if (< versione 65586)
                            (
                                (message "The version of LhA you're using quite is old. Please download the latest version from Aminet. "
                                         "The latest version is V1.50 registered.\n\n"
                                         "The author of this archiver stopped development a few years ago: currently he doesn't "
                                         "offer a registration service anymore, but will tollerate keyfile exchange between registered "
                                         "and unregistered users. So, if you don't have the keyfile, you just have to ask around..."
                                )
                                (if (> version 65547)
                                    (message "By the way, the LhA Module can use this version " lhaver "." lharev " of LhA, "
                                             "even if it won't work very well. Updating to the latest version (1.50) is highly recommended."
                                    )
                                    (message "The version of LhA you are using (" lhaver "." lharev ") cannot be used at all with the LhA module. "
                                             "Please update to the latest version (1.50)."
                                    )
                                )
                            )
                        )

                    )
                    (set linealha (cat (cat "LHA\t#?.L(HA|ZH)(.BAK|%)\t??-lh?-#?\t"( tackon at_moddest "lha.xarc_io")"\t3\t0\t0\tQ\t" lhacommand ) "\t\t\t1\n") )
                )
            )
            (if (BITAND bitmoduli 2)
                (
                    (if (= 1 (exists "C:Lzx") )
                        (set lzxcommand "C:Lzx")
                        (set lzxcommand
                            (askfile
                                (prompt "The LZX module needs the LZX program, by Data Compression Technologies (Jonathan Forbes). Please locate it." )
                                (default "C:Lzx" )
                                (help @askfile-help)
                            )
                        )
                    )
                    (if (= 1 (exists lzxcommand) )
                        (
                            (set versione (getversion lzxcommand) )
                            (set lzxver (/ versione 65536) )
                            (set lzxrev (- versione (* lzxver 65536) ) )
                        )
                        (set versione 0)
                    )
                    (if (= versione 0)
                        (message "The selected file could not be found. The installer script will create the LZX archive type, "
                                 "even though you will have to specify the location of the LZX command, later within X-Arc.")
                        (if (< versione 65547)
                            (
                                (message "The version of LZX you are using is old. Please download latest version from Aminet. "
                                         "The latest version of LZX is V1.21 registered.\n\n"
                                         "The author of this archiver halted development, and released "
                                         "a free keyfile on Aminet for anyone. Just download it, together with latest version of the program."
                                )
                                (message "By the way, LZX Module should be able use this version " lzxver "." lzxrev " of LZX, "
                                         "even if it won't work very well. Updating to latest version (1.21) is highly recommended."
                                )
                            )
                        )
                    )

                    (set linealzx (cat (cat "LZX\t#?.LZX\tLZX#?\t"( tackon at_moddest "lzx.xarc_io")"\t1\t0\t0\tQ\t" lzxcommand ) "\t\t\t1\n") )
                )

            )
            (if (BITAND bitmoduli 4)
                (
                    (if (= 1 (exists "C:Zip") )
                        (set zipcommand "C:Zip")
                        (set zipcommand
                            (askfile
                                (prompt "The ZIP module needs the Zip program, by Mark Adler, Richard B. Wales, ... Please locate it.\nThe module is also compatible with the PPC version of this command, ported by Gabriele Greco." )
                                (default "C:Zip" )
                                (help @askfile-help)
                            )
                        )
                    )
                    (if (= 1 (exists zipcommand) )
                        (
                            (set versione (getversion zipcommand) )
                            (set zipver (/ versione 65536) )
                            (set ziprev (- versione (* zipver 65536) ) )
                        )
                        (set zipcommand 0)
                    )
                    (if (= versione 0)
                        (message "The selected file could not be found. The installer script will create the ZIP archive type, "
                                 "even though you will have to specify the location of the ZIP command, later within X-Arc."
                        )
                        (if (< versione 131074)
                            (
                                (message "The version of ZIP you are using is old. Please download a later version from Aminet. "
                                         "The latest version ZIP is v2.2.\n\n"
                                )
                                (message "By the way, the ZIP Module should be able to use this version " zipver "." ziprev " of ZIP, "
                                         "even if it won't work very well. Updating to latest version (2.2) is highly recommended."
                                )
                            )
                        )
                    )
                    (if (= 1 (exists "C:UnZip") )
                        (set zipuncommand "C:UnZip")
                        (set zipuncommand
                            (askfile
                                (prompt "The ZIP module needs the UnZip program, by Info-ZIP, maintained by Greg Roelofs. Please locate it.\nThe module is also compatible with the PPC version of this command, ported by Gabriele Greco." )
                                (default "C:UnZip" )
                                (help @askfile-help)
                            )
                        )
                    )
                    (if (= 1 (exists zipcommand) )
                        (
                            (set versione (getversion zipuncommand) )
                            (set zipver (/ versione 65536) )
                            (set ziprev (- versione (* zipver 65536) ) )
                        )
                        (set versione 0)
                    )
                    (if (= versione 0)
                        (message "The selected file could not be found. The installer script will create the UnZIP archive type, "
                                 "even though you will have to specify the location of the UnZIP command, later within X-Arc."
                        )
                        (if (< versione 327710)
                            (
                                (message "The version of UnZIP you are using is old. Please download a later version from Aminet. "
                                         "Latest version of ZIP is v5.32.\n\n"
                                )
                                (message "By the way, the ZIP Module should be able to use this version " zipver "." ziprev " of Zip, "
                                         "even if it won't work very well. Updating to latest version (5.32) is highly recommended."
                                )
                            )
                        )
                    )

                    (set lineazip (cat (cat "ZIP\t#?.ZIP\tPK#?\t"( tackon at_moddest "zip.xarc_io")"\t0\t0\t0\tQ\t\t" zipcommand ) (cat "\t" zipuncommand )"\t1\n") )
                )
            )
        )
    )
)

(procedure P_TAGGACATS
    (set bitcataloghi
        (askoptions
            (help @askoptions-help)
            (prompt "Select the catalog(s) you want to install.\nEnglish is built in the program.")
            (default 0)
            (choices
                catalan_cat
                croatian_cat
                czech_cat
                danish_cat
                dutch_cat
                english_cat
                finnish_cat
                french_cat
                german_cat
                greek_cat
                hungarian_cat
                italian_cat
                japanese_cat
                norwegian_cat
                persian_cat
                polish_cat
                portugueseeuro_cat
                portuguesebraz_cat
                russian_cat
                serbian_cat
                slovenian_cat
                spanish_cat
                swedish_cat
            )
        )
    )
)

(procedure P_TAGGADOC
    (set documentation
        (askchoice
            (help @askchoice-help)
            (prompt "In which language would you like to install the accompanying documentation?")
            (default 0)
            (choices
                "No documentation at all."
                catalan_doc
                croatian_doc
                czech_doc
                danish_doc
                dutch_doc
                english_doc
                finnish_doc
                french_doc
                german_doc
                greek_doc
                hungarian_doc
                italian_doc
                japanese_doc
                norwegian_doc
                persian_doc
                polish_doc
                portugueseeuro_doc
                portuguesebraz_doc
                russian_doc
                serbian_doc
                slovenian_doc
                spanish_doc
                swedish_doc
            )
        )
    )
)

(procedure P_INKEY
    (
    (set risultato (P_XATREG))
    (if (= 0 risultato)
        (if (= 0
                (askbool
                    ( prompt "A keyfile is already installed, would you like to install a new one?")
                    ( help @askbool-help)
                )
            )
            (;Then
                (exit)
            )
            (;Else
                (P_INSTXAT)
                (set risultato (P_XATREG))
                (if (= 0 risultato)
                    ( (P_XAT_O_DEMO_O_RESETTI) )
                    ( (P_INKEY) )
                    )

            )
            )
        (;Else
        (if (= 0 (P_CERCACHIAVE) )
            (
                (copyfiles
                    (prompt "Copying your keyfile in s:")
                    (help @copyfiles-help)
                    (source
                        ( askfile
                            (prompt "Please locate your keyfile.")
                            (default "x-arc.key")
                            (help @askfile-help)
                        )
                    )
                    (dest "S:")

                )
                (P_INKEY)
            )
            (
                (message
                    "If you have a previous version of X-Arc running,"
                    " please close it before pressing ''Proceed''.\n"
                    "Be Careful: If you do not close it, X-Arc could freeze"
                    " and you will have to reboot your machine!"
                )
                (if (= 1 (exists "libs:xarctools.library"))
                    (run "libs:xarctools.library")
                    (run
                        ( askfile
                            (prompt "Please locate your xarctools.library")
                            (default "libs:xarctools.library")
                            (help @askfile-help)
                        )
                    )
                )
                (message
                    "The keyfile has been installed within the xarctools.library,"
                    " as required. Please remember that within this library is your keyfile!"
                    " Therefore DO NOT give or offer this library to anyone,"
                    " as it is the same as if you spread your keyfile!\n\n"
                    "One more time:\ndo not give anyone your xarctools library!"
                )
                (P_CONTROLLA_SE_INSTALLATA)
            )
        )
        )
    )
    )
)

(procedure P_XAT_O_DEMO_O_RESETTI
(
    (set risultato (P_XATREG))
    (if (= 0 risultato)
        (
        (if (= 0
            (askbool
                (prompt
                    "It hasn't been possible to flush a previous xarctools.library."
                    " Please close all X-Arc tasks and retry."
                    " If this still doesn't work, quit from this installation,"
                    " reset the computer and re-run this script."
                )
                (help @askbool-help)
                (choices "Ok, try Again" "Quit")
            )
            )
            (exit)
            (P_XAT_O_DEMO_O_RESETTI)
        )
        )
        ( P_INKEY )
    )
)
)

(procedure P_INSTXAT
(
    (message
                    "If you have a previous version of X-Arc running,"
                    " please close it before pressing ''Proceed''.\n"
                    "Be Careful: If you do not close it, X-Arc could freeze"
                    " and you will have to reboot your machine!"
    )
    (P_FLUSH)
    (copyfiles
        (source "Installation/Libs/xarctools.library")
        (prompt "Copying xarctools.library...")
        (confirm)
        (dest "Libs:" )
        (help @copyfiles-help)
    )
)
)

(procedure P_FLUSH
    (
    (run "avail flush >NIL:")
    (run "avail flush >NIL:")
    (run "avail flush >NIL:")
    )
)

(procedure P_INSTALNLIST
 (       (
        (complete 1)
        (copylib (prompt "Installing NList.mcc class in MUI." )
                 (help @copylib-help)
                 (source "Installation/nlist/NList.mcc")
                 (dest "MUI:Libs/MUI")
                 (confirm)
                 (optional "askuser" "force")
        )
        (complete 5)
        (copylib (prompt "Installing NListview.mcc class in MUI." )
                 (help @copylib-help)
                 (source "Installation/nlist/NListview.mcc")
                 (dest "MUI:Libs/MUI")
                 (confirm)
                 (optional "askuser" "force")
        )
        (complete 10)

        (copylib (prompt "Installing NFloattext.mcc class in MUI." )
                 (help @copylib-help)
                 (source "Installation/nlist/NFloattext.mcc")
                 (dest "MUI:Libs/MUI")
                 (confirm)
                 (optional "askuser" "force")
        )
        (complete 15)

        (copylib (prompt "Copying NListviews.mcp." )
                 (help @copylib-help)
                 (confirm)
                 (source "Installation/nlist/NListviews.mcp")
                 (dest "MUI:Libs/MUI")
                 (optional "askuser" "force")
        )
        (complete 20)
        ;MCCs installed
        )
)
) ;fine P_INSTALNLIST

(procedure P_CERCACHIAVE
    (OR
        (OR
            (= 1 (exists "s:x-arc.key" (noreq)))
            (OR
                (= 1 (exists "keypath:x-arc.key" (noreq)))
                (= 1 (exists "keyfiles:x-arc.key" (noreq)))
            )
        )
        (OR
            (= 1 (exists "x-arc.key" (noreq)))
            (= 1 (exists (tackon (getenv "keypath") "x-arc.key") (noreq)))
        )
    )
)

(procedure P_INIT_LOC

(set catalan_name            "Catalan"                  )
(set croatian_name           "Croatian"                 )
(set czech_name              "Czech"                    )
(set danish_name             "Danish"                   )
(set dutch_name              "Dutch"                    )
(set english_name            "English"                  )
(set finnish_name            "Finnish"                  )
(set french_name             "French"                   )
(set german_name             "German"                   )
(set greek_name              "Greek"                    )
(set hungarian_name          "Hungarian"                )
(set italian_name            "Italian"                  )
(set japanese_name           "Japanese"                 )
(set norwegian_name          "Norwegian"                )
(set persian_name            "Persian"                  )
(set polish_name             "Polish"                   )
(set portugueseeuro_name     "Portuguese (european)"    )
(set portuguesebraz_name     "Portuguese (brazilian)"   )
(set russian_name            "Russian"                  )
(set serbian_name            "Serbian"                  )
(set slovenian_name          "Slovenian"                )
(set spanish_name            "Spanish"                  )
(set swedish_name            "Swedish"                  )

(set catalan_dir             "català"                   )
(set croatian_dir            "hrvatski"                 )
(set czech_dir               "czech"                    )
(set danish_dir              "dansk"                    )
(set dutch_dir               "nederlands"               )
(set english_dir             "english"                  )
(set finnish_dir             "suomi"                    )
(set french_dir              "français"                 )
(set german_dir              "deutsch"                  )
(set greek_dir               "greek"                    )
(set hungarian_dir           "magyar"                   )
(set italian_dir             "italiano"                 )
(set japanese_dir            "japanese"                 )
(set norwegian_dir           "norsk"                    )
(set persian_dir             "farsi"                    )
(set polish_dir              "polski"                   )
(set portugueseeuro_dir      "português"                )
(set portuguesebraz_dir      "português-brasil"         )
(set russian_dir             "russian"                  )
(set serbian_dir             "srpski"                   )
(set slovenian_dir           "slovensko"                )
(set spanish_dir             "español"                  )
(set swedish_dir             "svenska"                  )

)


(procedure P_SETTA_VAR_CAT

(if (= 1 (exists (tackon (tackon "Installation/catalogs/" catalan_dir              )  "XArc.catalog") ) ) (set catalan_cat          catalan_name           ) (set catalan_cat         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" croatian_dir             )  "XArc.catalog") ) ) (set croatian_cat         croatian_name          ) (set croatian_cat        "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" czech_dir                )  "XArc.catalog") ) ) (set czech_cat            czech_name             ) (set czech_cat           "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" danish_dir               )  "XArc.catalog") ) ) (set danish_cat           danish_name            ) (set danish_cat          "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" dutch_dir                )  "XArc.catalog") ) ) (set dutch_cat            dutch_name             ) (set dutch_cat           "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" english_dir              )  "XArc.catalog") ) ) (set english_cat          english_name           ) (set english_cat         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" finnish_dir              )  "XArc.catalog") ) ) (set finnish_cat          finnish_name           ) (set finnish_cat         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" french_dir               )  "XArc.catalog") ) ) (set french_cat           french_name            ) (set french_cat          "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" german_dir               )  "XArc.catalog") ) ) (set german_cat           german_name            ) (set german_cat          "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" greek_dir                )  "XArc.catalog") ) ) (set greek_cat            greek_name             ) (set greek_cat           "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" hungarian_dir            )  "XArc.catalog") ) ) (set hungarian_cat        hungarian_name         ) (set hungarian_cat       "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" italian_dir              )  "XArc.catalog") ) ) (set italian_cat          italian_name           ) (set italian_cat         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" japanese_dir             )  "XArc.catalog") ) ) (set japanese_cat         japanese_name          ) (set japanese_cat        "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" norwegian_dir            )  "XArc.catalog") ) ) (set norwegian_cat        norwegian_name         ) (set norwegian_cat       "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" persian_dir              )  "XArc.catalog") ) ) (set persian_cat          persian_name           ) (set persian_cat         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" polish_dir               )  "XArc.catalog") ) ) (set polish_cat           polish_name            ) (set polish_cat          "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" portugueseeuro_dir       )  "XArc.catalog") ) ) (set portugueseeuro_cat   portugueseeuro_name    ) (set portugueseeuro_cat  "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" portuguesebraz_dir       )  "XArc.catalog") ) ) (set portuguesebraz_cat   portuguesebraz_name    ) (set portuguesebraz_cat  "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" russian_dir              )  "XArc.catalog") ) ) (set russian_cat          russian_name           ) (set russian_cat         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" serbian_dir              )  "XArc.catalog") ) ) (set serbian_cat          serbian_name           ) (set serbian_cat         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" slovenian_dir            )  "XArc.catalog") ) ) (set slovenian_cat        slovenian_name         ) (set slovenian_cat       "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" spanish_dir              )  "XArc.catalog") ) ) (set spanish_cat          spanish_name           ) (set spanish_cat         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/catalogs/" swedish_dir              )  "XArc.catalog") ) ) (set swedish_cat          swedish_name           ) (set swedish_cat         "" ) )

)

(procedure P_SETTA_VAR_DOC

(if (= 1 (exists (tackon (tackon "Installation/documentation/" catalan_dir              )  "index.html") ) ) (set catalan_doc          catalan_name           ) (set catalan_doc         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" croatian_dir             )  "index.html") ) ) (set croatian_doc         croatian_name          ) (set croatian_doc        "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" czech_dir                )  "index.html") ) ) (set czech_doc            czech_name             ) (set czech_doc           "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" danish_dir               )  "index.html") ) ) (set danish_doc           danish_name            ) (set danish_doc          "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" dutch_dir                )  "index.html") ) ) (set dutch_doc            dutch_name             ) (set dutch_doc           "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" english_dir              )  "index.html") ) ) (set english_doc          english_name           ) (set english_doc         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" finnish_dir              )  "index.html") ) ) (set finnish_doc          finnish_name           ) (set finnish_doc         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" french_dir               )  "index.html") ) ) (set french_doc           french_name            ) (set french_doc          "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" german_dir               )  "index.html") ) ) (set german_doc           german_name            ) (set german_doc          "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" greek_dir                )  "index.html") ) ) (set greek_doc            greek_name             ) (set greek_doc           "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" hungarian_dir            )  "index.html") ) ) (set hungarian_doc        hungarian_name         ) (set hungarian_doc       "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" italian_dir              )  "index.html") ) ) (set italian_doc          italian_name           ) (set italian_doc         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" japanese_dir             )  "index.html") ) ) (set japanese_doc         japanese_name          ) (set japanese_doc        "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" norwegian_dir            )  "index.html") ) ) (set norwegian_doc        norwegian_name         ) (set norwegian_doc       "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" persian_dir              )  "index.html") ) ) (set persian_doc          persian_name           ) (set persian_doc         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" polish_dir               )  "index.html") ) ) (set polish_doc           polish_name            ) (set polish_doc          "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" portugueseeuro_dir       )  "index.html") ) ) (set portugueseeuro_doc   portugueseeuro_name    ) (set portugueseeuro_doc  "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" portuguesebraz_dir       )  "index.html") ) ) (set portuguesebraz_doc   portuguesebraz_name    ) (set portuguesebraz_doc  "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" russian_dir              )  "index.html") ) ) (set russian_doc          russian_name           ) (set russian_doc         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" serbian_dir              )  "index.html") ) ) (set serbian_doc          serbian_name           ) (set serbian_doc         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" slovenian_dir            )  "index.html") ) ) (set slovenian_doc        slovenian_name         ) (set slovenian_doc       "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" spanish_dir              )  "index.html") ) ) (set spanish_doc          spanish_name           ) (set spanish_doc         "" ) )
(if (= 1 (exists (tackon (tackon "Installation/documentation/" swedish_dir              )  "index.html") ) ) (set swedish_doc          swedish_name           ) (set swedish_doc         "" ) )

)




(
    (message
       "\n\n\nX-Arc 1.3\n"
       "The archive management tool for the Amiga.\n"
       "\n(c) by Federico Pomi and Nik Soggia 1997, 1998, 1999\n"
       "\nhttp://www.vapor.com/X-Arc/"
       "\nhttp://www.AmyResource.it/X-Arc/"
    )

    (P_INIT_LOC)
    (P_INIZIO)

    (exit)
)